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-TITLE KAMESSAGE 
SIDENT "04-000 


SSR A SRA AE AREER AAAAARER EAA EAE A EERE ERE eee eee ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ht 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


t 

® 

*® 

* 

* 

® 

® 
SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. 2 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
® 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
* 

tt 
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ARRRBRARAAASAAAASALASLSLALLASALALASALASAAS ESSERE SALE SERRE SARA SEARLES SSSA SAS SO 


; ROUTINE TO TRANSFER A MESSAGE IN LINK MODE BETWEEN TWO DR11-W'S 
; CALLING SEQUENCE: 


CALL (BUFFER_ADDRESS ,BUFFER_SIZE,TRANSFER_DIRECTION, CHANNEL ,EVENT_FLAG, TIME_OUT, STATUS) 


BUFFER ADDRESS = ADDRESS OF DATA BUFFER TO TRANSFER 
BUFFER-SIZE = SIZE BYTES OF DATA BUFFER TO TRANSFER 
TRANSFER DIRECTION =" NDIRECTION FOR DATA TO GO 

1=R 


: RECEIVE 

: CHANNEL = CHANNEL ASSIGNED TO DR11-w 

: EVENT FLAG = EVENT FLAG TO SET WHEN TRANSFER COMPLETE 

3 TIME BuT = REQUEST TIME OUT VALUE TO U 

: STATOS = ADDRESS OF 20 BYTE ARRAY TO RECEIVE FINAL STATUS 
: STATUS BLOCK FROM QUEUE 1/0 REQUEST 
: RNAL ERROR CODE GENERATED BY ‘THIS ROUTINE 
; C NABLE ATTN AST'S 


ERROR - 
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ROR FROM BLOCK MODE W WRITE 
ISTENT STATE, TRANSMITT boty net AST 


&  JSBTTL LOCAL DEFFINITIONS AND STORAGE 
} 

§ 

SISTENT STATE. RECEIVE A 
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STENT § ATE. RECEIVE PROCESSING 
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OFENTS STATE, TRANSMITT QIO AST 
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| MAME SSAGE MAR; 1 
- “3 ERROR FROM WORD MODE WRITE 

- -13 ERROR FROM BLOCK. NODE WRITE 

. -14 INCONSISTENT STATE, RECEIVE Q10 AST 

: -15 ERROR FROM BLOCK ope READ 

3 STATE = 4 BYTES 
13 STATE VARIABLE USED FOR INTERNAL DISPATCHING 
3 00 INITIAL STATE 

; 01 WORD MODE WRITE MESSAGE SENT 

: 0¢ UNSOLICITED INPUT FROM BUDDY DURING XMIT 
; 03 BLOCK MODE WRITE MESSAG 

; 04 WAITING FOR BUDDY, SOLICITED RECIEVE 

; 05 SOLICITED BLOCK MODE RECEIVE 

; 06 UNSOLICITED BLOCK MODE RECEIVE 

; DSW - 4 BYTES 

; SYSTEM SERVICE STATUS 

; VALUE OF RO RETURNED FROM SYSTEM SERVICES 

; LOCAL DATA 

ADDRESS=4 

7E=8 
DIRECTION=12 


NNEL=16 
N=20 


STATUS= 28 
-PSECT XADATA,LONG 


BUFFER: .LONG 0 
: .LONG Q 

: LONG 

-LONG 


MER: .LONG 
EVENTFLG: .LONG 
10SB1: .QUAD 0 


; NOTE - ORDER IS ASSUMED FOR NEXT FOUR 


10SB: -QUAD 0 
ERROR: .LONG 
STATE: .LONG 
DSW: - LONG 


ooo 


RETURN, STATUS: : 
ZERO: .WORD 0 
‘ PAGE 


SAVED BUFFER eeta 

SAVED GUFFER LENGTH 

CALCULATED DRTI-u CSR FNCT BITS 
SAVED CHANNEL ae TO DR11-W 
SAVED TIME-OUT VALUE 

SAVED EVENT FLAG ANUMBER 

IOSB FOR WORD MODE WRITE 


VARIABLES 


: 10 10SB 

: ERROR VALUE PARAMATER 
; STATE VARIABL 

; $Y¥S TEM. SERVICE STATUS 


; ADDRESS OF CALLERS STATUS VARIABLE 
; ZERO CONSTANT FOR ERROR REPORTING 


-SBTTL ENTRY AND PARAMATER PROCESSING 


; MAIN PROGRAM 
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| KAMESSAGE MAR: 1 
.PSECT XACODE,NOWRT 

-ENTRY XAMESSAGE, “M<R2,R3,R4,R5> 
; GATHER CALL PARAMATERS 


CLRQ  W*ERROR : 
CMPW CAP) #7 : 
BNEQ ERROR : 
MOVL ADDRESS (AP) , “BUF FER ; 
MOVL a@SIZE(AP),W*LENGTH : 
EQL ERROR : 
MOVZBL @DIRECTION(AP) ,W*XAFUNC ; 
MOVL | @CHANNEL(AP) ,W*CHAN : 
MOVL @EFNC(AP) ,W*EVENTFLG ; 
BEQL ERROR : 
SCLREF_S afi W°EVENTFLG : 
BLBC 5R0,E : 
20$:  MOVL Oy ERE CAP) ,W°TIMER : 
BNEQ 3 : 
MOVZBL #5,W*TIMER ; 
30$:  MOVL  STATUS(AP) ,W*RETURN_ stati 
BEQL ERROR? ; 
CLRL @W*RETURN_STATUS : 
BRB START 


ERROR1: Sag #SS$_BADPARAM,RO 


PAGE 
-SBTTL START MESSAGE PROCESSOR 
-ENABL LSB 

START: 


$Q10_S CHAN=W*CHAN, 


S 
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CLEAR ERROR FLAG AND STATE VARIABLE 

MUST PASS 7 PARAM 

IF NOT, THEN ERR 

GET BUFFER ADDRES 

GET BUFFER SIZE 

XFER SIZE MUST BE NON ZERO 

GET TRANSFER DIRECTION FLAG 

FETCH CHANNEL 

AND EVENT FLAG 

MUST SPECIFY EVENT FLAG 

ELSE, MAKE SURE IT'S CLEAR 

CHECK FOR SERVICE ERROR 

FETCH TIME-OUT VALUE 

CHECK FOR ZERO 

USER SOME ‘REASONABLE’ VALUE 
GET ADDRESS OF STATUS ARRAY 

1f NOT SPECIFIED, ERROR 

INITIALIZE STATUS VALUE 


; ERROR IN CALL 


; ENABLE AST'S, REST DONE AT AST LEVEL 


Q10 TO ENABLE AST'S 


FUNC=#<10$ SETMODE ! 10SM_ ATTNAST>, = 
W*10SB,- 


10SB=W 
PI=W*ATIN “Ast 

BLBS 

CVTBL a-{ gHCERROR 

MOVL RO,W*DSW 


RETURN_ERROR: 
SCANCEL_S CHAN=W*CHAN 
BRB “$$ 


BRANCH IF DONE OK 
ERROR = CANNOT ENABLE ATTN AST'S 
SAVE SYSTEM SERVICE STATUS 


RETURN ERROR STATUS TO CALLER 
CANCEL ALL I/O AND FLUSH ATIN AST'S 


RETURN_ SUCCESS: ; RETURN FINAL STATUS TO CALLER 
; SAVE SYSTEM SERVICE STATUS 
S$: at S msi “USeV ENTFLG ET CALLER'S EVENT FLAG 
MOV #20,W*10SB, au*RETURN. status. : ; PUT FINAL STATUS IN CALLER'S BUFFER 
108: SSETAST_S #0 ; DISABLE AST RECOGNITION 
BLBS ~W*XAFUNC,RECEIVE + BRANCH ON TRANSMITT OR RECEIVE 


XII 


eer A ne a 
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_TRANSMITT: ; SEND A MESSAGE 

| TST WesTATE : DOES STATE INDICATE UNSOLICITED INPUT? 

CVIBL  #-2,W*ERROR : res UsOLiciTED INPUT FOR TRANSMITT NOT VALID 

15$:  SSETAST_S #4 : RE-ENAB RECOGNITION 

| BRB ~RETURN_ERROR TELL THE CALLER 

208: MOVZBL #1 WSSTATE ; CHANGE STATE TO WORD MODE MESSAGE SENT 

$Q10_S CHAN= W*CHA : SEND WORD MODE Q10 TO 

FUNC=#< 108 NURITELBLK! 108A. TiMEDSTOSM _WORD!IOSM_SETFNCT>,= ; WORD+SETFNCT 
10SB=W*10SB1,- 
ASTPRM=W*STATE,- 


ASTADR=Q10_ AST,= 
peu, LENGTA.- 


LENGTH OF BUFFER TO WRITE 
Pg: TWO BYTES 
=u TIMER, - 
P4=#2 


TIME-OUT VALUE 
INTERRUPT BUDDY + TRANSMITT 


MOVL RO,W*DSW SAVE SYSTEM S SERVIC STATUS 
BLBS ~— RO, 5 BRANCH IF STARTED OK 
CVTBL 7-4. W"ERROR ; G10 ERROR FOR WORD MODE WRITE 
BRw 15$ TELL CALLER ABOUT IT A 
RECEIVE: ; RECEIVE MESSAGE FROM BUDDY 
CASE  W*STATE,<- ; CHECK RESULT STAT 
40$,- ; 0 = NO UNSOLICITED MESSAGE, WAIT 
35$,- : 1 = BAD STATE 
35$.- : : - BAD STATE 
35$,- : 3 = BAD STATE 
35$.- : 4 = BAD STATE 
35$.- : 5 = BAD STATE 
50$>, TYPE= ; 6 = UNSOLICITED MESSAGE PROCESSING 
35$: CVTBL #-9,W*ERROR ; BAD STATE FOR RECEIVE FUNCTION 
BRwW 15$ ; END IT ALL 
40$: MOVZBL #4,W*STATE ; UPDATE STATE, WAITING FOR MESSAGE 
508: SSETAST_S in > RE-ENABLE AST RECOGNITION 
.DSABL LSB 


[SBTTL ATIN_AST = ATTENTION AST ROUTINE 
: PROCESS ATTENTION AST'S FOR DR11W 
“ENTRY ATINAST, “M<R2,R3,R4,R5> 


 ENABL 
MOVL  W*BUFFER,R4 ; GET ADDRESS OF CALLER'S DATA BUFFER 
BLBS  W*XAFUNC.ATIN_RECEIVE : CALLER'S FUNCTION IS RECEIVE MESSAGE 
ATTN_TRANSMITT: : SEND A MESSAGE TO BUDDY 
CAS W*STATE,<- : DISPATCH ON CURRENT STATE VARIABLE 
$,- : 0 = UNSLOLICITED INPUT - ERROk 
10$>, TYPE=W : 1 = NORMAL PROCESSING, TRANSMITT BUFFER 
CVTBL #-5,W*ERROR : BAD STATE VARIABLE - INCONSISTENT 
BRB + RETURN ERROR 
3$: MOVL #2,W*STATE : UNSOLICITED INPUT = EITHER ERROR FROM 
: BUDDY OR BOTH WANT TO TRANSMITT AT ONCE. 


Il 
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58: RET ; PICK THIS UP AT MAINLINE LEVEL 
10S: MOVZBL #3-U*STATE ; XMITT BLOCK OF DATA TO BUDDY 
$Q10_S CHAN=W*CHA BLOCK MOD | 
FUNC=#< 10S NURITELBLK! 108M. TIMED! 10SM_ SET FNCT! 108% _CYCLE>,= ; SETFNCT+CYCLE | 
ASTPRN=W"STATE ,~ | 


~ br +o peop ~AST,= 


* PAGE 

-SBTTL QIO_AST - AST ROUTINE FOR Q10'S 
. | 
+ COMMON AST ROUTINE TO PROCESS END Q10 ACTIONS | 
. .ENTRY Q10_AST,“M<R2,R3,R4,R5> | 

-ENABL LSB 


[ 
| 
i 
| 
| ; ADDRESS OF CALLER'S DATA BUFFER 
peactier" - > LENGTH OF BUFFER 
pS=WeTIMER - : TIMEOUT VALUE 
: FNCT BITS FOR DR11W CSR 
BLBS : RETURN IF QI1O STARTED OK 
CVTBL R055. wror > BLOCK MODE WRITE QI0 FAILED 
MOVL RO,W*DSW > SAVE Q10 STATUS 
15$: BRW RETURN_ERROR ; TELL CALLER 
ATIN_RECEIVE: ; READ A DATA BLOCK FROM BUDDY 
CASE  W*STATE,<- : DISPATCH ON STATE VARIABLE 
40$,- : 0 = UNSOLICITED INPUT 
308.- - : 1 = BAD STATE 
; é - BAD STATE 
30$; : 3 = BAD STATE 
4585, TYPE=W : 4 = SOLICITED READ 
30$: CVIBL #-6,W*ERRO : BAD STATE VARIABLE - INCONSISTENT 
BRw RETURN ERROR : THATS ALL 
40$: MOVZBL #6,W*STATE > FLAG NEXT STATE = UNSOLICITED READ 
45$:  MOVZBL #5, W*STATE : FLAG STATE = SOLICITED READ 
50$: $Q10_S CHAN=W*CHAN : Q10 = BLOCK MODE 
FUNC=#c108, READLBLK! 108M_ TIMED! 10$M_ SETFNCT>,=- ; SETFNCT 
ASTPRMSUPSTATE = 
ASTADR=W*Q10_ AST,- 
; ADDRESS OF CALLER” 5 DATA BUFFER 
crater . : LENGTH OF DATA BUFFER 
P3=u*TIMER - : TIMEOUT VALU 
> INTERRUPT+READ 
BLBS nO. 558 : BRANCH IF Q10 STARTED OK 
MOVL > SAVE STAT 
CVTBL #210, OS ERROR : BLOCK MODE READ Q10 ERROR 
BRB > RETURN_ERROR 
55$: RET 3; RETURN” 
-DSABL LSB 


CMPW #SS$_CANCEL ,W*10SB ; IS THIS THE RESULT OF A CANCEL? 
BEQL 258 : YES, DO NOTHING 
BLBS W*XAFUNC ,AST_RECEIVE ; BRANCH IF READ FUNCTION 


a 


a ——$—$_______ = ’ 
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RETURN NORMAL STATUS 
RETURN = EVERYTHING OK 


35$:  MOVZWL #SS$_NORMAL,RO 
BRW RETURN_SUCCESS 


| 
_AST_TRANSMITT: ; END OF TRANSMITT FUNCTION | 
CASE 4(AP),<= : DISPATCH ON STATE 
| 108. : Q = BAD STATE | 
é $,- : 1 = END OF WORD MODE WRITE 
Os. ; ¢ - BAD STATE 
30$>, TYPE=W ; 5. - END OF BLOCK MODE WRITE 
10$: CVTBL #-11.W*ERROR : ERROR = INCONSITENT STATE VARIABLE | 
BRB 5$ ; RETURN_ERROR | 
208: BLBS Ww" $B1,25$ ; END OF “WORD MODE WRITE = BRANCH IF FINISHED OK 
CVIBL #-12,W*ERROR : ERROR FROM WORD MODE WRITE 
MOV we J0SB1 ,W"DSu : SAVE I10SB1 FOR CALLER 
BRB 65 : RETURN_ERROR | 
25%: FET 
308: BLBS wu" 1988 ,35$ : CHECK FOR Q10 ERRORS 
CVTBL #-13,W*ERROR ; OOP 
RB 65$ : RETURN_ERROR 
AST_RECEIVE: ; END ACTION FOR RECEIVE Q10'S 
CASE 4(AP),<- : DISPATCH ON STATE 
40$,- : 0 = BAD STATE 
40$.- + 1 = BAD STATE 
40$.- : é - BAD STATE 
40$,- : 3 = BAD STATE 
40$.- : 4 = BAD STAT | 
45$.- : 5 = END OF SOLICITED REA | 
45$>, TYPE=W : 6 = END OF UNSOLICITED READ 
408: CVIBL #-14.W*ERROR t ERROR = INCONSISTENT STATE VARIABLE | 
BRB 65$ ; RETURN_ERROR 


45$: BLBS  W*10SB,35$ 
CVTBL #-15,WERROR 

65$:  BRW RETURN_ERROR 
-DSABL LSB 


BRANCH IF NO ERROR 
ERROR FROM BLOCK MODE READ Q10 


Be te 
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